home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
024
/
conquest
/
conqd3.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-17
|
4KB
|
125 lines
#include <stdio.h>
#include "defs.h"
#include "structs.h"
#include "vars.h"
print_col()
{
int i;
boolean see;
tplanet *pplanet;
printf("olonies:");
point(50,1);
for ( i= 1 ; i<=nstars; i++ ) {
pplanet=stars[i].first_planet;
while ( pplanet != nil ) {
if ( (pplanet->team) == player ) {
putchar(i+'A'-1);
see = true;
if ( ((y_cursor > 21) && (x_cursor >= 50)) ||
(y_cursor > 24) ) {
pause();
clear_field();
point(50,1);
};
printf("%d:%2d ", pplanet->number, pplanet->psee_capacity);
point(x_cursor + 5, y_cursor);
x_cursor = x_cursor - 5;
if ( pplanet->psee_capacity==0 )
printf(" Decimated");
else if ( (pplanet->team==none) && see )
printf(" No colony");
else if ( pplanet->team==player ) {
printf("(%2d,/%3d)", pplanet->inhabitants, pplanet->iu);
if ( pplanet->conquered )
printf("Con");
else
printf(" ");
if ( pplanet->mb!=0 )
printf("%2dmb", pplanet->mb);
else
printf(" ");
if ( pplanet->amb!=0 )
printf("%2damb", pplanet->amb);
}
else if ( (pplanet->team==ENEMY) && see ) {
printf("*EN*");
if ( see && pplanet->conquered ) {
printf("Conquered");
}
else
printf(" ");
if ( pplanet->under_attack ) {
if ( pplanet->mb != 0 )
printf("%2dmb", pplanet->mb);
else
printf(" ");
if ( pplanet->amb != 0 )
printf("%2damb", pplanet->amb);
};
};
point(x_cursor,y_cursor + 1);
};
pplanet=pplanet->next;
};
};
clear_field();
cle3r_left();
}
starsum()
{
char iline[81];
int ind,i,value;
char strs;
printf("tar summary:");
cle3r_left();
point(1,19);
putchar(':');
get_line(iline,&ind,true);
get_token(iline,&ind,&value,&strs);
point(50,1);
if ( strs == ' ' ) {
for ( i= 1 ; i<=nstars; i++ ) pr5nt_star(i);
}
else {
do {
i = strs-'A'+1;
pr5nt_star(i);
get_token(iline,&ind,&value,&strs);
}
while (strs != ' ');
};
clear_field();
}
tfsum()
{
int i, value;
char tfs;
char iline[81];
int ind;
printf("f summary :");
get_line(iline,&ind,true);
get_token(iline,&ind,&value,&tfs);
point(50,1);
if ( tfs==' ' ) {
for ( i= 1 ; i<=26; i++ ) pr3nt_tf(i);
}
else {
do {
i = tfs - 'A' + 1;
pr3nt_tf(i);
get_token(iline,&ind,&value,&tfs);
}
while (tfs != ' ');
};
clear_field();
cle3r_left();
}